home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr18 / mrun210.zip / MRUN210.WAS < prev    next >
Text File  |  1993-04-28  |  34KB  |  1,040 lines
  1. ;MailRun v2.10:  Automated BBS Communications
  2. ;1992-1993 Gerald P. Sully, all rights reserved.
  3.  
  4.  
  5. #comment
  6. **************************************************************************
  7. **************************************************************************
  8. * 
  9. * The source code for MailRun is contained in 9 separate files: 
  10. * MRUN210.WAS (this file), MRUN210.H (a header file), and files 
  11. * named MRUN210?.WAS, where ? is a letter A through G.  MailRun
  12. * also requires the file MRUNICON.DLL in order to display the 
  13. * tool bar.
  14. * 
  15. * MRUN210.WAS is the script from which the other script files
  16. * are run.  It performs a brief initialization to find the
  17. * location of its support files, then chains to MRUN210A.WAS,
  18. * which is the principle engine of MailRun.  It will also 
  19. * perform an install routine if it finds that there is no
  20. * current MAILRUN.INI file.
  21. * 
  22. * The key files of MailRun are the *.MRN files.  These
  23. * store configuration information and control what tasks
  24. * will be performed on each BBS.  The user interface is
  25. * designed to provide a convenient way to edit these files
  26. * and display their contents.  The files are standard INI
  27. * files, and so may also be edited by hand.  The comm engine,
  28. * contained in MRUN210G.WAS, reads the currently loaded *.MRN
  29. * file, calls each BBS and executes each pending task.
  30. * 
  31. **************************************************************************
  32. **************************************************************************
  33. #endcomment
  34.  
  35.  
  36. #define IniFile 0
  37.  
  38. string MailRunIni, MailRunList, MailRunTrunc, MailRun, OldIni
  39. string MailRunDir, MailDir, ReplyDir, DownloadDir, UploadDir, TempDir
  40. string DialAttempts, DialTimeout, DialPause, IdleTimeout, SavePackets
  41. string Archiver, QWKReader, LogViewer
  42. integer LogRun, AppendLog, AnsiInLog, NewfileFilter, HelpPage
  43. float Version
  44.  
  45.  
  46. #comment
  47. *********************************************************************
  48. * 
  49. * MAIN()
  50. * 
  51. * Calls makefullname(), checkdir(), makeini(), gettempdir(),
  52. * delspec(), changesettings(), movedir(), updatemrn()
  53. * 
  54. * Executes MRUN210A.WAX
  55. * 
  56. * Checks for existence of MAILRUN.INI file, then chains
  57. * to the main body of the script.
  58. * 
  59. *********************************************************************
  60. #endcomment
  61.  
  62. proc main
  63. string MRunMain, temp, MailRunHelp
  64.     MailRunHelp = makefullname($PWTASKPATH, "mailrun.hlp")
  65.     if isfile MailRunHelp
  66.         set aspect helpfile "mailrun.hlp"
  67.     endif
  68.  
  69.    ;Create the temporary directory
  70.    gettempdir()
  71.    if !(checkdir(TempDir, ""))
  72.       halt
  73.    endif
  74.    
  75.    MailRunIni = makefullname($WINPATH, "MAILRUN.INI")
  76.    profilerd MailRunIni "MailRun" "Version" temp
  77.    atof temp Version
  78.    if Version != 2.10
  79.       ;if there is no .INI file for version 2.10, run install procedure
  80.         fetch aspect scriptpath temp
  81.        temp = makefullname(temp, "mailrun.hlp")
  82.        if not strcmpi MailRunHelp temp
  83.            copyfile temp MailRunHelp
  84.            delfile temp
  85.         endif
  86.         set aspect helpfile "mailrun.hlp"
  87.       makeini()
  88.       changesettings()
  89.       movedir()
  90.       updatemrn()
  91.         delfile OldIni
  92.       statmsg "Installation complete!"
  93.    endif
  94.  
  95.    ;Make sure the Temp directory is empty
  96.    delspec(TempDir, "*.*")
  97.    profilerd MailRunIni "MailRun" "MailRunDir" MailRunDir
  98.    MRunMain = makefullname(MailRunDir, "MRUN210A")
  99.    execute MRunMain
  100. endproc
  101.  
  102.  
  103. #comment
  104. *********************************************************************
  105. * 
  106. * DELSPEC()
  107. * 
  108. * Called by main()
  109. * 
  110. * Calls makefullname()
  111. * 
  112. * Deletes specified filespec from specified directory.
  113. * 
  114. *********************************************************************
  115. #endcomment
  116.  
  117. proc delspec
  118. strparm dirname, spec
  119. string filename, filespec
  120.    FileSpec = makefullname(dirname, spec)
  121.    findfirst FileSpec
  122.    while FOUND
  123.       FileName = makefullname(dirname, $FILENAME)
  124.       delfile FileName
  125.       findnext
  126.    endwhile
  127. endproc
  128.  
  129.  
  130. #comment
  131. *********************************************************************
  132. * 
  133. * MAKEINI()
  134. * 
  135. * Called by main()
  136. * 
  137. * Calls welcomebox(), getbbstypes()
  138. * 
  139. * Creates the MAILRUN.INI file and sets default values.
  140. * 
  141. *********************************************************************
  142. #endcomment
  143.  
  144. proc makeini
  145. string StateDLPath, StateULPath, AspectDir, temp, MailRunBak
  146. integer dialogstatus
  147. integer StateWaitCnct, StateCallPause, StateMaxDial
  148.    welcomebox()
  149.    ;Check whether user wishes to continue
  150.    while 1
  151.        dialogstatus = $DIALOG
  152.       switch dialogstatus
  153.           case 1
  154.               ;user chose Cancel
  155.               halt
  156.           endcase
  157.           case 10
  158.               ;user chose OK
  159.               exitwhile
  160.           endcase
  161.       endswitch
  162.    endwhile
  163.  
  164.     ;Save the old MAILRUN.INI file if it exists
  165.  
  166.     if isfile MailRunIni
  167.         OldIni = makefullname(TempDir, "oldini.tmp")
  168.         copyfile MailRunIni OldIni
  169.         MailRunBak = makefullname($WINPATH, "MAILRUN.BAK")
  170.         if isfile MailRunBak
  171.             delfile MailRunBak
  172.         endif
  173.         rename MailRunIni MailRunBak
  174.     endif        
  175.  
  176.    ;Create the file MAILRUN.INI
  177.  
  178.    fopen IniFile MailRunIni CREATE TEXT
  179.    if FAILURE
  180.       errormsg "Unable to create MAILRUN.INI;`r`nscript aborted...."
  181.       halt
  182.    endif 
  183.    fputs IniFile "[MailRun]"
  184.    fputs IniFile "Version=2.10"
  185.    fputs IniFile "MailRun="
  186.    fputs IniFile "MailRunDir="
  187.    fputs IniFile "MailDir="
  188.    fputs IniFile "ReplyDir="
  189.    fputs IniFile "DownloadDir="
  190.    fputs IniFile "UploadDir="
  191.    fputs IniFile "DialAttempts="
  192.    fputs IniFile "DialTimeout="
  193.    fputs IniFile "DialPause="
  194.    fputs IniFile "IdleTimeout="
  195.    fputs IniFile "SavePackets="
  196.    fputs IniFile "LogRun="
  197.    fputs IniFile "AppendLog="
  198.    fputs IniFile "AnsiInLog="
  199.    fputs IniFile "NewfileFilter="
  200.    fputs IniFile "Archiver="
  201.    fputs IniFile "QWKReader="
  202.    fputs IniFile "LogViewer="
  203.    fputs IniFile "DLSortField=0"
  204.    fputs IniFile "ULSortField=0"
  205.    fputs IniFile "DLPurgeLimit=0"
  206.    fputs IniFile "ExecTime=HH:MM:SS"
  207.    fputs IniFile "AutoRun=0"
  208.    fputs IniFile "GoWait=1"
  209.    fputs IniFile "PostRun=1"
  210.    fputs IniFile "RingInterrupt=1"
  211.    fputs IniFile ""
  212.    fputs IniFile "[BBSTypes]"
  213.    fputs IniFile "BBSType_1=PCBoard 14.5"
  214.    fputs IniFile "BBSType_2=PCBoard 15.0"
  215.    fputs IniFile "BBSType_3=WildCat! 3.6"
  216.    fputs IniFile "BBSType_4=Auntie"
  217.    fputs IniFile "BBSType_5=RBBS"
  218.    fputs IniFile ""
  219.    fputs IniFile "[MailDoors]"
  220.    fputs IniFile "MailDoor_1=QMail"
  221.    fputs IniFile "MailDoor_2=MarkMail"
  222.    fputs IniFile "MailDoor_3=Cam-Mail"
  223.    fputs IniFile "MailDoor_4=RoseMail"
  224.    fputs IniFile "MailDoor_5=TomCat"
  225.    fputs IniFile "MailDoor_6=Auntie Mail"
  226.    fputs IniFile "MailDoor_7=KingMail"
  227.    fputs IniFile "MailDoor_8=Mail Manager"
  228.    fputs IniFile ""
  229.    fputs IniFile "[DEFAULT]"
  230.    fputs IniFile "BBSName="
  231.    fputs IniFile "BBSType=PCBoard 14.5"
  232.    fputs IniFile "MailDoorType=KingMail"
  233.    fputs IniFile "Number_1="
  234.    fputs IniFile "Number_2="
  235.    fputs IniFile "Number_3="
  236.    fputs IniFile "UserName="
  237.    fputs IniFile "PWord="
  238.    fputs IniFile "UserResp1="
  239.    fputs IniFile "UserResp2="
  240.    fputs IniFile "XferProt=ZModem"
  241.    fputs IniFile "MailXferProt=ZModem"
  242.    fputs IniFile "QWKArchiver=pkunzip.exe"
  243.    fputs IniFile "LangNumber="
  244.    fputs IniFile "GraphicsOn=1"
  245.    fputs IniFile "LangPrompt=Language"
  246.    fputs IniFile "GraphicsPrompt=graphics (Enter)"
  247.    fputs IniFile "NamePrompt=first name"
  248.    fputs IniFile "PWordPrompt=Password"
  249.    fputs IniFile "UserPrompt1="
  250.    fputs IniFile "UserPrompt2="
  251.    fputs IniFile "ScanPrompt=Last Read"
  252.    fputs IniFile "ViewPrompt=View"
  253.    fputs IniFile "MorePrompt=More?"
  254.    fputs IniFile "FilePrompt="
  255.    fputs IniFile "ContinuePrompt=Continue"
  256.    fputs IniFile "CommandPrompt=Command?"
  257.    fputs IniFile "DLPrompt=Aborts Transfer"
  258.    fputs IniFile "DLUnavPrompt=(Enter)=none"
  259.    fputs IniFile "ULPrompt=Aborts Transfer"
  260.    fputs IniFile "ULDescPrompt=? ("
  261.    fputs IniFile "MsgMenuPrompt="
  262.    fputs IniFile "MailDoor=KM"
  263.    fputs IniFile "MailPrompt=KingMail Command"
  264.    fputs IniFile "ReceiveQWKPrompt=When Done"
  265.    fputs IniFile "MailDLPrompt=Aborts Transfer"
  266.    fputs IniFile "MailULPrompt=Aborts Transfer"
  267.    fputs IniFile ""
  268.    fputs IniFile "[PCBoard 14.5]"
  269.    fputs IniFile "GraphicsOn=1"
  270.    fputs IniFile "MailDoorType=KingMail"
  271.    fputs IniFile "LangPrompt=Language"
  272.    fputs IniFile "GraphicsPrompt=graphics (Enter)"
  273.    fputs IniFile "NamePrompt=first name"
  274.    fputs IniFile "PWordPrompt=Password"
  275.    fputs IniFile "ScanPrompt=Last Read"
  276.    fputs IniFile "ViewPrompt=View"
  277.    fputs IniFile "MorePrompt=More?"
  278.    fputs IniFile "ContinuePrompt=Continue"
  279.    fputs IniFile "CommandPrompt=Command?"
  280.    fputs IniFile "DLPrompt=Aborts Transfer"
  281.    fputs IniFile "DLUnavPrompt=(Enter)=none"
  282.    fputs IniFile "ULPrompt=Aborts Transfer"
  283.    fputs IniFile "ULDescPrompt=? ("
  284.    fputs IniFile ""
  285.    fputs IniFile "[PCBoard 15.0]"
  286.    fputs IniFile "GraphicsOn=1"
  287.    fputs IniFile "MailDoorType=KingMail"
  288.    fputs IniFile "UserResp1=n"
  289.    fputs IniFile "UserPrompt1=Personal Mail"
  290.    fputs IniFile "LangPrompt=Language"
  291.    fputs IniFile "GraphicsPrompt=graphics (Enter)"
  292.    fputs IniFile "NamePrompt=first name"
  293.    fputs IniFile "PWordPrompt=Password"
  294.    fputs IniFile "ScanPrompt=Last Read"
  295.    fputs IniFile "ViewPrompt=View"
  296.    fputs IniFile "MorePrompt=More?"
  297.    fputs IniFile "ContinuePrompt=Continue"
  298.    fputs IniFile "CommandPrompt=Command?"
  299.    fputs IniFile "DLPrompt=Aborts Transfer"
  300.    fputs IniFile "DLUnavPrompt=(Enter)=none"
  301.    fputs IniFile "ULPrompt=Aborts Transfer"
  302.    fputs IniFile "ULDescPrompt=? ("
  303.    fputs IniFile ""
  304.    fputs IniFile "[WildCat! 3.6]"
  305.    fputs IniFile "MailDoorType=TomCat"
  306.    fputs IniFile "CallingFrom=City"
  307.    fputs IniFile "UserResp1=Birth Date"
  308.    fputs IniFile "UserResp2=Telephone"
  309.    fputs IniFile "GraphicsOn=0"
  310.    fputs IniFile "NamePrompt=first name"
  311.    fputs IniFile "PWordPrompt=Password"
  312.    fputs IniFile "UserPrompt1=Birth Date"
  313.    fputs IniFile "UserPrompt2=phone"
  314.    fputs IniFile "ScanPrompt=Last Read"
  315.    fputs IniFile "ViewPrompt=View"
  316.    fputs IniFile "MorePrompt=[S]top"
  317.    fputs IniFile "FilePrompt=FILE MENU"
  318.    fputs IniFile "ContinuePrompt=ontinue"
  319.    fputs IniFile "CommandPrompt=MAIN MENU"
  320.    fputs IniFile "DLPrompt=Please begin"
  321.    fputs IniFile "DLUnavPrompt=file # 1"
  322.    fputs IniFile "ULPrompt=Please begin"
  323.    fputs IniFile "ULDescPrompt=Description?"
  324.    fputs IniFile ""
  325.    fputs IniFile "[Auntie]"
  326.    fputs IniFile "GraphicsOn=0"
  327.     fputs IniFile "UserResp1=^C"
  328.     fputs IniFile "UserResp2=3"
  329.    fputs IniFile "MailDoorType=Auntie Mail"
  330.    fputs IniFile "NamePrompt=first name"
  331.    fputs IniFile "PWordPrompt=Password"
  332.     fputs IniFile "UserPrompt1=select the one"
  333.     fputs IniFile "UserPrompt2=Choice (1, 2 or 3)"
  334.    fputs IniFile "ViewPrompt=Bulletin:"
  335.    fputs IniFile "FilePrompt=Files Area"
  336.    fputs IniFile "ContinuePrompt=Continue"
  337.    fputs IniFile "CommandPrompt=Main Area"
  338.    fputs IniFile "DLPrompt=Ctrl+X"
  339.    fputs IniFile "DLUnavPrompt=Enter date"
  340.    fputs IniFile "ULPrompt=Ctrl+X"
  341.    fputs IniFile "ULDescPrompt=1 ?"
  342.    fputs IniFile ""
  343.    fputs IniFile "[RBBS]"
  344.    fputs IniFile "GraphicsOn=0"
  345.    fputs IniFile "MailDoorType=Mail Manager"
  346.    fputs IniFile "NamePrompt=first name"
  347.    fputs IniFile "PWordPrompt=Password"
  348.    fputs IniFile "UserResp1=n"
  349.    fputs IniFile "UserPrompt1=Review new files"
  350.    fputs IniFile "ScanPrompt=Check"
  351.    fputs IniFile "ViewPrompt=new bulletins"
  352.    fputs IniFile "MorePrompt=More"
  353.    fputs IniFile "FilePrompt=FILE Command"
  354.    fputs IniFile "ContinuePrompt=Continue"
  355.    fputs IniFile "CommandPrompt=Main Command"
  356.    fputs IniFile "DLPrompt=for transfer"
  357.    fputs IniFile "DLUnavPrompt=[ENTER] quits"
  358.    fputs IniFile "ULPrompt=for transfer"
  359.    fputs IniFile "ULDescPrompt=+----+|"
  360.    fputs IniFile ""
  361.    fputs IniFile "[KingMail]"
  362.    fputs Inifile "MailDoor=KM"
  363.    fputs IniFile "MailPrompt=KingMail Command"
  364.    fputs IniFile "ReceiveQWKPrompt=When Done"
  365.    fputs IniFile "MailDLPrompt=Aborts Transfer"
  366.    fputs IniFile "MailULPrompt=Aborts Transfer"
  367.    fputs IniFile ""
  368.    fputs IniFile "[QMail]"
  369.    fputs IniFile "MailDoor=QM"
  370.    fputs IniFile "MailPrompt=QMail Command"
  371.    fputs IniFile "ReceiveQWKPrompt=these messages"
  372.    fputs IniFile "MailDLPrompt=Prepare to download"
  373.    fputs IniFile "MailULPrompt=Prepare to upload"
  374.    fputs IniFile ""
  375.    fputs IniFile "[MarkMail]"
  376.    fputs Inifile "MailDoor=MM"
  377.    fputs IniFile "MailPrompt=MarkMail Command"
  378.    fputs IniFile "ReceiveQWKPrompt=When Done"
  379.    fputs IniFile "MailDLPrompt=Aborts Transfer"
  380.    fputs IniFile "MailULPrompt=Aborts Transfer"
  381.    fputs IniFile ""
  382.    fputs IniFile "[RoseMail]"
  383.    fputs IniFile "MailDoor=RM"
  384.    fputs IniFile "MailPrompt=RoseMail Command"
  385.    fputs IniFile "ReceiveQWKPrompt=this Packet"
  386.    fputs IniFile "MailDLPrompt=Prepare to download"
  387.    fputs IniFile "MailULPrompt=Prepare to upload"
  388.    fputs IniFile ""
  389.    fputs IniFile "[Cam-Mail]"
  390.    fputs IniFile "MailDoor=CM"
  391.    fputs IniFile "MailPrompt=Cam-Mail Command"
  392.    fputs IniFile "ReceiveQWKPrompt=these messages"
  393.    fputs IniFile "MailDLPrompt=Prepare to upload"
  394.    fputs IniFile "MailULPrompt=Start your transfer"
  395.    fputs IniFile ""
  396.    fputs IniFile "[TomCat]"
  397.    fputs IniFile "MailDoor=T"
  398.    fputs IniFile "MsgMenuPrompt=MESSAGE MENU"
  399.    fputs IniFile "MailPrompt=TOMCAT MENU"
  400.    fputs IniFile "ReceiveQWKPrompt=when done"
  401.    fputs IniFile "MailDLPrompt=Start your"
  402.    fputs IniFile "MailULPrompt=Start your"
  403.    fputs IniFile ""
  404.    fputs IniFile "[Auntie Mail]"
  405.    fputs IniFile "MailDoor="
  406.    fputs IniFile "MailPrompt="
  407.    fputs IniFile "ReceiveQWKPrompt="
  408.    fputs IniFile "MailDLPrompt=Ctrl+X"
  409.    fputs IniFile "MailULPrompt=Ctrl+X"
  410.    fputs IniFile ""
  411.    fputs IniFile "[Mail Manager]"
  412.    fputs IniFile "MailDoor=d;mail"
  413.    fputs IniFile "MailPrompt=Your choice"
  414.    fputs IniFile "ReceiveQWKPrompt=this packet"
  415.    fputs IniFile "MailDLPrompt=Ready to send"
  416.    fputs IniFile "MailULPrompt=Ready to receive"
  417.    fclose IniFile
  418.    MailRun = MailRunIni
  419.  
  420.     if isfile OldIni
  421.         ;if there was a previous version of MailRun installed,
  422.         ;read the default values from the old file.
  423.         
  424.         ;don't offer the Aspect directory as a default for MailRunDir
  425.         profilerd OldIni "MailRun" "MailRunDir" MailRunDir
  426.         temp = makefullname(MailRunDir, "*")
  427.         fetch aspect scriptpath AspectDir
  428.         addfilename AspectDir "*"
  429.         if strcmpi temp AspectDir
  430.             MailRunDir = makefullname($PWTASKPATH, "mailrun")
  431.         endif
  432.  
  433.         profilerd OldIni "MailRun" "MailRun" MailRun
  434.         profilerd OldIni "MailRun" "DownloadDir" DownloadDir
  435.         profilerd OldIni "MailRun" "UploadDir" UploadDir
  436.         profilerd OldIni "MailRun" "MailDir" MailDir
  437.         profilerd OldIni "MailRun" "ReplyDir" ReplyDir
  438.         profilerd OldIni "MailRun" "DialAttempts" DialAttempts
  439.         profilerd OldIni "MailRun" "DialTimeout" DialTimeout
  440.         profilerd OldIni "MailRun" "DialPause" DialPause
  441.         profilerd OldIni "MailRun" "IdleTimeout" IdleTimeout
  442.         profilerd OldIni "MailRun" "SavePackets" SavePackets
  443.         profilerd OldIni "MailRun" "LogRun" LogRun
  444.         profilerd OldIni "MailRun" "AppendLog" AppendLog
  445.         profilerd OldIni "MailRun" "AnsiInLog" AnsiInLog
  446.         profilerd OldIni "MailRun" "NewfileFilter" NewfileFilter
  447.         profilerd OldIni "MailRun" "Archiver" Archiver
  448.         profilerd OldIni "MailRun" "QWKReader" QWKReader
  449.         profilerd OldIni "MailRun" "LogViewer" LogViewer
  450.     else
  451.        ;otherwise, suggest default values based on current system settings
  452.     
  453.        fetch dialdir maxdial StateMaxDial
  454.        fetch dialdir waitcnct StateWaitCnct
  455.        fetch dialdir callpause StateCallPause
  456.        fetch dnldpath StateDLPath
  457.        fetch upldpath StateULPath
  458.         MailRun = "mailrun.mrn"
  459.        MailRunDir = makefullname($PWTASKPATH, "mailrun")
  460.        DownloadDir = StateDLPath
  461.        UploadDir = StateULPath
  462.        MailDir = StateDLPath
  463.        ReplyDir = StateULPath
  464.        itoa StateMaxDial DialAttempts
  465.        itoa StateWaitCnct DialTimeout
  466.        itoa StateCallPause DialPause
  467.        IdleTimeout = "120"
  468.        SavePackets = "3"
  469.        LogRun = 1
  470.        AppendLog = 0
  471.        AnsiInLog = 0
  472.        NewfileFilter = 0
  473.     endif
  474.  
  475.     if Version == 2.00
  476.         getbbstypes()
  477.     endif
  478.    MailRunList = "MAILRUN.INI"
  479.    MailRunTrunc = "MAILRUN.INI"
  480. endproc
  481.  
  482.  
  483. #comment
  484. *********************************************************************
  485. * 
  486. * GETBBSTYPES()
  487. * 
  488. * Called by makeini()
  489. * 
  490. * Adds any user created prompt sets from a previous version
  491. * of MailRun to MAILRUN.INI.
  492. * 
  493. *********************************************************************
  494. #endcomment
  495.  
  496. proc getbbstypes
  497. string BBSType_X, BBSType, MailDoor_X, MailDoorType, temp
  498. integer i, j
  499.     i = 1
  500.     j = 6
  501.     strfmt BBSType_X "BBSType_%d" i
  502.     profilerd OldIni "BBSTypes" BBSType_X BBSType
  503.     while not NULLSTR BBSType
  504.         switch BBSType
  505.             case "PCBoard 14.5"
  506.             case "WildCat! 3.5"
  507.             case "WildCat! 3.6"
  508.             case "Auntie"
  509.             case "RBBS"
  510.             endcase
  511.             default
  512.                 strfmt BBSType_X "BBSType_%d" j
  513.                 j++
  514.                 profilewr MailRunIni "BBSTypes" BBSType_X BBSType
  515.                 profilerd OldIni BBSType "MailDoorType" temp
  516.                 profilewr MailRunIni BBSType "MailDoorType" temp
  517.                 profilerd OldIni BBSType "LangPrompt" temp
  518.                 profilewr MailRunIni BBSType "LangPrompt" temp
  519.                 profilerd OldIni BBSType "GraphicsPrompt" temp
  520.                 profilewr MailRunIni BBSType "GraphicsPrompt" temp
  521.                 profilerd OldIni BBSType "NamePrompt" temp
  522.                 profilewr MailRunIni BBSType "NamePrompt" temp
  523.                 profilerd OldIni BBSType "PWordPrompt" temp
  524.                 profilewr MailRunIni BBSType "PWordPrompt" temp
  525.                 profilerd OldIni BBSType "Confirm1Prompt" temp
  526.                 profilewr MailRunIni BBSType "UserPrompt1" temp
  527.                 profilerd OldIni BBSType "Confirm2Prompt" temp
  528.                 profilewr MailRunIni BBSType "UserPrompt2" temp
  529.                 profilerd OldIni BBSType "ViewPrompt" temp
  530.                 profilewr MailRunIni BBSType "ViewPrompt" temp
  531.                 profilerd OldIni BBSType "ScanPrompt" temp
  532.                 profilewr MailRunIni BBSType "ScanPrompt" temp
  533.                 profilerd OldIni BBSType "FilePrompt" temp
  534.                 profilewr MailRunIni BBSType "FilePrompt" temp
  535.                 profilerd OldIni BBSType "MorePrompt" temp
  536.                 profilewr MailRunIni BBSType "MorePrompt" temp
  537.                 profilerd OldIni BBSType "ContinuePrompt" temp
  538.                 profilewr MailRunIni BBSType "ContinuePrompt" temp
  539.                 profilerd OldIni BBSType "CommandPrompt" temp
  540.                 profilewr MailRunIni BBSType "CommandPrompt" temp
  541.                 profilerd OldIni BBSType "DLPrompt" temp
  542.                 profilewr MailRunIni BBSType "DLPrompt" temp
  543.                 profilerd OldIni BBSType "DLUnavPrompt" temp
  544.                 profilewr MailRunIni BBSType "DLUnavPrompt" temp
  545.                 profilerd OldIni BBSType "ULPrompt" temp
  546.                 profilewr MailRunIni BBSType "ULPrompt" temp
  547.                 profilerd OldIni BBSType "ULDescPrompt" temp
  548.                 profilewr MailRunIni BBSType "ULDescPrompt" temp
  549.             endcase
  550.         endswitch
  551.         i++
  552.         strfmt BBSType_X "BBSType_%d" i
  553.         profilerd OldIni "BBSTypes" BBSType_X BBSType
  554.     endwhile
  555.     i = 1
  556.     j = 9
  557.     strfmt MailDoor_X "MailDoor_%d" i
  558.     profilerd OldIni "MailDoors" MailDoor_X MailDoorType
  559.     while not NULLSTR MailDoorType
  560.         switch MailDoorType
  561.             case "QMail"
  562.             case "MarkMail"
  563.             case "Cam-Mail"
  564.             case "RoseMail"
  565.             case "KingMail"
  566.             case "TomCat"
  567.             case "Auntie Mail"
  568.             case "Mail Manager"
  569.             endcase
  570.             default
  571.                 strfmt MailDoor_X "MailDoor_%d" j
  572.                 j++
  573.                 profilewr MailRunIni "MailDoors" MailDoor_X MailDoorType
  574.                 profilerd OldIni MailDoorType "MailDoor" temp
  575.                 profilewr MailRunIni MailDoorType "MailDoor" temp
  576.                 profilerd OldIni MailDoorType "MailPrompt" temp
  577.                 profilewr MailRunIni MailDoorType "MailPrompt" temp
  578.                 profilerd OldIni MailDoorType "ReceiveQWKPrompt" temp
  579.                 profilewr MailRunIni MailDoorType "ReceiveQWKPrompt" temp
  580.                 profilerd OldIni MailDoorType "MailDLPrompt" temp
  581.                 profilewr MailRunIni MailDoorType "MailDLPrompt" temp
  582.                 profilerd OldIni MailDoorType "MailULPrompt" temp
  583.                 profilewr MailRunIni MailDoorType "MailULPrompt" temp
  584.                 profilerd OldIni MailDoorType "MsgMenuPrompt" temp
  585.                 profilewr MailRunIni MailDoorType "MsgMenuPrompt" temp
  586.                 profilerd OldIni MailDoorType "QWKArchiver" temp
  587.                 profilewr MailRunIni MailDoorType "QWKArchiver" temp
  588.                 profilerd OldIni MailDoorType "MailXferProt" temp
  589.                 profilewr MailRunIni MailDoorType "MailXferProt" temp
  590.             endcase
  591.         endswitch
  592.         i++
  593.         strfmt MailDoor_X "MailDoor_%d" i
  594.         profilerd OldIni "MailDoors" MailDoor_X MailDoorType
  595.     endwhile
  596. endproc    
  597.  
  598.  
  599. #comment
  600. *********************************************************************
  601. * 
  602. * CHANGESETTINGS()
  603. * 
  604. * Called by main()
  605. * 
  606. * Calls checkdir(), settingsbox()
  607. * 
  608. * Allows the user to change the defaults in MAILRUN.INI.
  609. * 
  610. *********************************************************************
  611. #endcomment
  612.  
  613. proc changesettings
  614. string LastMRunDir, LastMailDir, LastReplyDir
  615. string LastDLDir, LastULDir
  616. string SaveMsg = "You have not saved your MailRun settings.  \
  617. Select `"OK`" to return, `"Cancel`" to abort MailRun."
  618. integer dialogstatus, savestatus
  619. integer Response
  620.    ;Save old values in case of error in directory creation
  621.    LastMRunDir = MailRunDir
  622.    LastMailDir = MailDir
  623.    LastReplyDir = ReplyDir
  624.    LastDLDir = DownloadDir
  625.    LastULDir = UploadDir
  626.    settingsbox()
  627.    disable CTRL 170
  628.    savestatus = 1
  629.    while 1
  630.       dialogstatus = $DIALOG
  631.       switch dialogstatus
  632.          case 10
  633.             ;User selected "Save"
  634.             ;if the directories chosen in settingsbox()
  635.             ;don't exist, create them
  636.                 if checkdir(&MailRunDir, LastMRunDir) && \
  637.                     checkdir(&MailDir, LastMailDir) && \
  638.                     checkdir(&ReplyDir, LastReplyDir) && \
  639.                     checkdir(&DownloadDir, LastDLDir) && \
  640.                     checkdir(&UploadDir, LastULDir)
  641.                ;if all directories exist or were successfully created
  642.                ;write the settings to MAILRUN.INI
  643.                chdir MailRunDir
  644.                profilewr MailRunIni "MailRun" "MailRunDir" MailRunDir
  645.                profilewr MailRunIni "MailRun" "MailDir" MailDir
  646.                profilewr MailRunIni "MailRun" "ReplyDir" ReplyDir
  647.                profilewr MailRunIni "MailRun" "DownloadDir" DownloadDir
  648.                profilewr MailRunIni "MailRun" "UploadDir" UploadDir
  649.                profilewr MailRunIni "MailRun" "DialAttempts" DialAttempts
  650.                profilewr MailRunIni "MailRun" "DialTimeout" DialTimeout
  651.                profilewr MailRunIni "MailRun" "DialPause" DialPause
  652.                profilewr MailRunIni "MailRun" "IdleTimeout" IdleTimeout
  653.                profilewr MailRunIni "MailRun" "SavePackets" SavePackets
  654.                profilewr MailRunIni "MailRun" "LogRun" LogRun
  655.                profilewr MailRunIni "MailRun" "AppendLog" AppendLog
  656.                profilewr MailRunIni "MailRun" "AnsiInLog" AnsiInLog
  657.                profilewr MailRunIni "MailRun" "NewfileFilter" NewfileFilter
  658.                profilewr MailRunIni "MailRun" "Archiver" Archiver
  659.                profilewr MailRunIni "MailRun" "QWKReader" QWKReader
  660.                profilewr MailRunIni "MailRun" "LogViewer" LogViewer
  661.             else
  662.                updatedlg 128
  663.                loopwhile
  664.             endif
  665.             savestatus = 0
  666.          endcase
  667.          case 11
  668.             ;User selected "Done"
  669.             if savestatus == 0
  670.                ;if settings have been saved, return to processing
  671.                exitwhile
  672.             endif
  673.             if savestatus == 1
  674.                ;if settings have not been saved, display a warning
  675.                sdlgmsgbox "MailRun Message" SaveMsg EXCLAMATION \
  676.                   OKCANCEL Response 1
  677.                switch Response
  678.                   case 1
  679.                      ;User selected "OK" to continue
  680.                      loopwhile
  681.                   endcase
  682.                   case 2
  683.                      ;User selected "Cancel" to abort
  684.                      delfile MailRunIni
  685.                      halt
  686.                   endcase
  687.                endswitch
  688.             endif
  689.          endcase
  690.          case 70
  691.             ;User selected the "Capture mailrun..." checkbox
  692.             if LogRun == 0
  693.                disable CTRL 71
  694.                disable CTRL 72
  695.             else
  696.                enable CTRL 71
  697.                enable CTRL 72
  698.             endif
  699.             savestatus = 1
  700.             updatedlg 1
  701.          endcase
  702.          case 230
  703.          case 231
  704.          case 232
  705.          case 233
  706.          case 234
  707.          case 235
  708.          case 236
  709.          case 237
  710.          case 238
  711.          case 239
  712.          case 240
  713.          case 241
  714.          case 242
  715.          case 71
  716.          case 72
  717.          case 73
  718.             savestatus = 1
  719.          endcase
  720.       endswitch
  721.    endwhile
  722. endproc
  723.  
  724.  
  725. #comment
  726. *********************************************************************
  727. * 
  728. * CHECKDIR()
  729. * 
  730. * Called by main(), changesettings()
  731. * 
  732. * Creates a directory.  Returns 1 if directory was successfully
  733. * created or already existed; returns 0 if an error ocurred in
  734. * creation.
  735. * 
  736. *********************************************************************
  737. #endcomment
  738.  
  739. func checkdir : integer
  740. strparm NewDir, OldDir
  741.     chdir NewDir
  742.     if FAILURE
  743.         mkdir NewDir
  744.         if FAILURE
  745.             usermsg "Unable to create directory %s" NewDir
  746.             NewDir = OldDir
  747.             return 0
  748.         endif
  749.     endif
  750.     return 1
  751. endfunc
  752.  
  753.  
  754. #comment
  755. *********************************************************************
  756. * 
  757. * MOVEDIR()
  758. * 
  759. * Called by main()
  760. * 
  761. * Calls makefullname(), movefiles()
  762. * 
  763. * Moves MailRun source files to the MailRun directory.
  764. * 
  765. *********************************************************************
  766. #endcomment
  767.  
  768. proc movedir
  769. string aspectpath, temp1, temp2
  770.    temp1 = makefullname(MailRunDir,"*") 
  771.    fetch aspect defaultpath aspectpath
  772.    temp2 = makefullname(aspectpath, "*")
  773.    if not strcmpi temp1 temp2
  774.         movefiles(aspectpath, MailRunDir, "MRUN210?.WA?")
  775.         movefiles(aspectpath, MailRunDir, "MRUN210.H")
  776.         movefiles(aspectpath, MailRunDir, "NEWFILES.WA?")
  777.         movefiles(aspectpath, MailRunDir, "TERMINAL.WA?")
  778.         movefiles(aspectpath, MailRunDir, "MRUNICON.DLL")
  779.         movefiles(aspectpath, MailRunDir, "MAILRUN.WRI")
  780.       statmsg ""
  781.    endif
  782. endproc
  783.  
  784.  
  785. #comment
  786. *********************************************************************
  787. * 
  788. * MOVEFILES()
  789. * 
  790. * Called by movedir()
  791. * 
  792. * Calls makefullname()
  793. * 
  794. * Moves all files matching a filespec from their current
  795. * location to a new directory.
  796. * 
  797. *********************************************************************
  798. #endcomment
  799.  
  800. proc movefiles
  801. strparm OldDir, NewDir, Spec
  802. string OldFile, NewFile, OldSpec
  803.     OldSpec = makefullname(OldDir, Spec)
  804.     findfirst OldSpec
  805.     while FOUND
  806.         if not strcmpi $FILENAME "MRUN210.WAS"
  807.             if not strcmpi $FILENAME "MRUN210.WAX"
  808.                statmsg "Moving %s" $FILENAME
  809.                 OldFile = makefullname(OldDir, $FILENAME)
  810.                 NewFile = makefullname(NewDir, $FILENAME)
  811.                 copyfile OldFile NewFile
  812.                 delfile OldFile
  813.             endif
  814.         endif
  815.         findnext
  816.     endwhile
  817. endproc
  818.  
  819.  
  820. #comment
  821. *********************************************************************
  822. * 
  823. * UPDATEMRN()
  824. * 
  825. * Called by main()
  826. * 
  827. * Calls makefullname(), checkfile()
  828. * 
  829. * Updates existing *.MRN files to MailRun 2.1 format.
  830. * 
  831. *********************************************************************
  832. #endcomment
  833.  
  834. proc updatemrn
  835. string filespec, mrnfile, BBSi, XferProt, BBS_X, BBSType
  836. string MailDoor, MailPrompt
  837. integer i
  838.    filespec = makefullname(MailRunDir, "*.MRN")
  839.    findfirst filespec
  840.    while FOUND
  841.       statmsg "Updating Mailrun %s" $FILENAME
  842.       mrnfile = makefullname(MailRunDir, $FILENAME)
  843.       profilewr mrnfile "MailRun" "DLPurgeLimit" 0
  844.       profilewr mrnfile "MailRun" "GoWait" 1
  845.       profilewr mrnfile "MailRun" "PostRun" 1
  846.       profilewr mrnfile "MailRun" "RingInterrupt" 1
  847.       i = 1
  848.       strfmt BBS_X "BBS_%d" i
  849.       profilerd mrnfile "MailRun" BBS_X BBSi
  850.          while not NULLSTR BBSi
  851.              profilerd mrnfile BBSi "BBSType" BBSType
  852.              if strcmpi BBSType "WildCat! 3.5"
  853.                  profilewr mrnfile BBSi "BBSType" "WildCat! 3.6"
  854.                  profilewr mrnfile BBSi "MsgMenuPrompt" "MESSAGE MENU"
  855.              endif
  856.            if checkfile(OldIni) && (Version != 2.00)
  857.                 profilewr mrnfile BBSi "BBSType" "PCBoard 14.5"
  858.                 profilewr mrnfile BBSi "ViewPrompt" "View"
  859.              profilerd mrnfile BBSi "XferProt" XferProt
  860.                 profilewr mrnfile BBSi "MailXferProt" XferProt
  861.                 profilerd mrnfile BBSi "MailDoor" MailDoor
  862.                 strfmt MailDoor "door;%s" MailDoor
  863.                 profilewr mrnfile BBSi "MailDoor" MailDoor
  864.                 profilerd mrnfile BBSi "MailPrompt" MailPrompt
  865.                 if strfind MailPrompt "QMail"
  866.                     profilewr mrnfile BBSi "MailDoorType" "QMail"
  867.                 elseif strfind MailPrompt "MarkMail"
  868.                     profilewr mrnfile BBSi "MailDoorType" "MarkMail"
  869.                 elseif strfind MailPrompt "Cam-Mail"
  870.                     profilewr mrnfile BBSi "MailDoorType" "Cam-Mail"
  871.                 elseif strfind MailPrompt "RoseMail"
  872.                     profilewr mrnfile BBSi "MailDoorType" "RoseMail"
  873.                 elseif strfind MailPrompt "KingMail"
  874.                     profilewr mrnfile BBSi "MailDoorType" "KingMail"
  875.                 endif
  876.               endif
  877.             i++
  878.             strfmt BBS_X "BBS_%d" i
  879.          profilerd mrnfile "MailRun" BBS_X BBSi
  880.          endwhile
  881.          findnext
  882.       endwhile
  883.       statmsg ""
  884. endproc
  885.       
  886.  
  887. #comment
  888. *********************************************************************
  889. * 
  890. * GETTEMPDIR()
  891. * 
  892. * Called by main()
  893. * 
  894. * Assigns the name of the MailRun temporary directory to
  895. * TempDir.
  896. * 
  897. *********************************************************************
  898. #endcomment
  899.  
  900. proc gettempdir
  901. string env
  902.    getenv "TEMP" env
  903.    if NULLSTR env
  904.       TempDir = $PWTASKPATH
  905.    else
  906.       TempDir = env
  907.    endif
  908.    addfilename TempDir "MRUNTEMP"
  909. endproc
  910.  
  911.  
  912. #comment
  913. *********************************************************************
  914. * 
  915. * CHECKFILE()
  916. * 
  917. * Called by main()
  918. * 
  919. * Checks for a file's existence.  Returns 1 if the file is
  920. * found, 0 if not found.
  921. * 
  922. *********************************************************************
  923. #endcomment
  924.  
  925. func checkfile : integer
  926. strparm FileNom
  927.    if isfile FileNom
  928.       return 1
  929.    else
  930.       return 0
  931.    endif
  932. endfunc
  933.  
  934.  
  935. #comment
  936. *********************************************************************
  937. * 
  938. * MAKEFULLNAME()
  939. * 
  940. * Called by various.
  941. * 
  942. * Appends a filename to a directory name.
  943. * 
  944. *********************************************************************
  945. #endcomment
  946.  
  947. func makefullname : string
  948. strparm Directory, FileNamen
  949. string FullName
  950.    FullName = Directory 
  951.    addfilename FullName FileNamen
  952.    return FullName
  953. endfunc
  954.  
  955.  
  956. #comment
  957. *********************************************************************
  958. * 
  959. * WELCOMEBOX()
  960. * 
  961. * Called by makeini()
  962. * 
  963. * Displays a dialog box to welcome first time users.
  964. * 
  965. *********************************************************************
  966. #endcomment
  967.  
  968. proc welcomebox
  969. HelpPage = 1
  970. dialogbox 80 57 198 125 15 "MailRun" HELPID HelpPage
  971.    text  10 11 178 8 center "Welcome to MailRun!"
  972.    text  21 26 156 63 center "Before you begin, you will need to \
  973. configure some basic system settings.  Default settings for MailRun \
  974. are stored in the file MAILRUN.INI, which may be manually edited.`r`n`r`n\
  975. Press F1 for Help."
  976.    pushbutton 49 95 40 14 "OK" normal
  977.    pushbutton 104 95 40 14 "Cancel" cancel
  978. enddialog
  979. endproc
  980.  
  981.  
  982. #comment
  983. *********************************************************************
  984. * 
  985. * SETTINGSBOX()
  986. * 
  987. * Called by changesettings()
  988. * 
  989. * Displays the MailRun Settings dialog box.
  990. * 
  991. *********************************************************************
  992. #endcomment
  993.  
  994. proc settingsbox
  995. HelpPage = 13
  996. dialogbox 15 36 340 222 15 "MailRun Settings" HELPID HelpPage
  997.    groupbox 10 28 200 96 "Directories" shadow
  998.    text  16 42 71 8 right "MailRun Directory:"
  999.    text  16 58 71 8 right "Mail Directory:"
  1000.    text  16 74 71 8 right "Reply Directory:"
  1001.    text  16 90 71 8 right "Download Directory:"
  1002.    text  16 106 71 8 right "Upload Directory:"
  1003.    editbox 91 56 110 12 MailDir
  1004.    editbox 91 72 110 12 ReplyDir
  1005.    editbox 91 88 110 12 DownloadDir
  1006.    editbox 91 104 110 12 UploadDir
  1007.    groupbox 224 28 102 96 "Parameters" shadow
  1008.    text  234 42 62 8 right "Dial Attempts:"
  1009.    text  234 58 62 8 right "Dial Timeout:"
  1010.    text  234 74 62 8 right "Dial Pause:"
  1011.    text  234 90 62 8 right "Idle Timeout:"
  1012.    text  234 106 62 8 right "Packets to Save:"
  1013.    editbox 300 40 16 12 DialAttempts
  1014.    editbox 300 56 16 12 DialTimeout
  1015.    editbox 300 72 16 12 DialPause
  1016.    editbox 300 88 16 12 IdleTimeOut
  1017.    editbox 300 104 16 12 SavePackets
  1018.    groupbox 10 132 124 59 "Logging" shadow
  1019.    checkbox 18 144 112 12 "Capture mailrun to log file" LogRun
  1020.    checkbox 18 158 112 12 "Append to existing log file" AppendLog
  1021.    checkbox 18 172 112 12 "Capture ANSI codes in log file" AnsiInLog
  1022.    checkbox 18 200 134 12 "Filter duplicates from d/l database" NewfileFilter
  1023.    groupbox 144 132 184 59 "Utilities" shadow
  1024.    text  145 146 65 8 right "Archive Utility:"
  1025.    text  145 160 65 8 right "QWK Mail Reader:"
  1026.    text  145 174 65 8 right "Log File Viewer:"
  1027.    editbox 214 144 107 12 Archiver
  1028.    editbox 214 158 107 12 QWKReader
  1029.    editbox 214 172 107 12 LogViewer
  1030.    pushbutton 191 200 40 14 "&Save" normal default
  1031.    pushbutton 252 200 40 14 "&Done" normal
  1032.    text  100 11 52 8 right "Settings for:"
  1033.    combobox 156 9 72 42 MailRunList MailRunTrunc sort
  1034.    editbox 91 40 110 12 MailRunDir
  1035. enddialog
  1036. endproc
  1037.  
  1038.  
  1039.  
  1040.